home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 2003 September / PC Answers September 2003.iso / Software / freeware / pixeltoolbox / Setup.exe / Main / PixelToolbox.exe / PixelToolbox.dxr / Scripts_41_load 8bit weave chips.ls < prev    next >
Encoding:
Text File  |  2002-06-08  |  4.3 KB  |  104 lines
  1. global gCast, gSize, gPuppetPal, gWvBgColor, gWvBgShadow, gWvVcolor, gWvVShadow, gWvHcolor, gWvHShadow
  2.  
  3. on prepareFrame me
  4.   sprite(158).member.palette = gPuppetPal
  5.   sprite(159).member.palette = gPuppetPal
  6.   sprite(160).member.palette = gPuppetPal
  7.   sprite(161).member.palette = gPuppetPal
  8.   sprite(162).member.palette = gPuppetPal
  9.   sprite(163).member.palette = gPuppetPal
  10.   put integer(gSize / 4) into field "weave H space"
  11.   put integer(gSize / 4) into field "weave V space"
  12.   put "2" into field "weave H width"
  13.   put "2" into field "weave V width"
  14.   put "1" into field "weave depth"
  15.   if (gWvBgColor = 0) and (gWvBgShadow = 0) and (gWvVcolor = 0) and (gWvVShadow = 0) and (gWvHcolor = 0) and (gWvHShadow = 0) then
  16.     if gPuppetPal = -102 then
  17.       gWvBgColor = paletteIndex(210)
  18.       gWvBgShadow = paletteIndex(211)
  19.       gWvVcolor = paletteIndex(162)
  20.       gWvVShadow = paletteIndex(206)
  21.       gWvHcolor = paletteIndex(192)
  22.       gWvHShadow = paletteIndex(227)
  23.     else
  24.       if gPuppetPal = -1 then
  25.         gWvBgColor = paletteIndex(206)
  26.         gWvBgShadow = paletteIndex(214)
  27.         gWvVcolor = paletteIndex(120)
  28.         gWvVShadow = paletteIndex(171)
  29.         gWvHcolor = paletteIndex(194)
  30.         gWvHShadow = paletteIndex(208)
  31.       else
  32.         if gPuppetPal = -2 then
  33.           gWvBgColor = paletteIndex(251)
  34.           gWvBgShadow = paletteIndex(253)
  35.           gWvVcolor = paletteIndex(128)
  36.           gWvVShadow = paletteIndex(249)
  37.           gWvHcolor = paletteIndex(216)
  38.           gWvHShadow = paletteIndex(248)
  39.         else
  40.           if gPuppetPal = -3 then
  41.             gWvBgColor = paletteIndex(192)
  42.             gWvBgShadow = paletteIndex(224)
  43.             gWvVcolor = paletteIndex(95)
  44.             gWvVShadow = paletteIndex(159)
  45.             gWvHcolor = paletteIndex(55)
  46.             gWvHShadow = paletteIndex(143)
  47.           else
  48.             if gPuppetPal = -4 then
  49.               gWvBgColor = paletteIndex(224)
  50.               gWvBgShadow = paletteIndex(252)
  51.               gWvVcolor = paletteIndex(143)
  52.               gWvVShadow = paletteIndex(250)
  53.               gWvHcolor = paletteIndex(120)
  54.               gWvHShadow = paletteIndex(249)
  55.             else
  56.               if gPuppetPal = -5 then
  57.                 gWvBgColor = paletteIndex(90)
  58.                 gWvBgShadow = paletteIndex(252)
  59.                 gWvVcolor = paletteIndex(127)
  60.                 gWvVShadow = paletteIndex(159)
  61.                 gWvHcolor = paletteIndex(175)
  62.                 gWvHShadow = paletteIndex(163)
  63.               else
  64.                 if gPuppetPal = -6 then
  65.                   gWvBgColor = paletteIndex(199)
  66.                   gWvBgShadow = paletteIndex(204)
  67.                   gWvVcolor = paletteIndex(232)
  68.                   gWvVShadow = paletteIndex(215)
  69.                   gWvHcolor = paletteIndex(176)
  70.                   gWvHShadow = paletteIndex(200)
  71.                 else
  72.                   if gPuppetPal = -7 then
  73.                     gWvBgColor = paletteIndex(27)
  74.                     gWvBgShadow = paletteIndex(191)
  75.                     gWvVcolor = paletteIndex(87)
  76.                     gWvVShadow = paletteIndex(96)
  77.                     gWvHcolor = paletteIndex(55)
  78.                     gWvHShadow = paletteIndex(63)
  79.                   else
  80.                     if gPuppetPal = -8 then
  81.                       gWvBgColor = paletteIndex(216)
  82.                       gWvBgShadow = paletteIndex(219)
  83.                       gWvVcolor = paletteIndex(94)
  84.                       gWvVShadow = paletteIndex(188)
  85.                       gWvHcolor = paletteIndex(168)
  86.                       gWvHShadow = paletteIndex(218)
  87.                     end if
  88.                   end if
  89.                 end if
  90.               end if
  91.             end if
  92.           end if
  93.         end if
  94.       end if
  95.     end if
  96.     member("weave - bg color", gCast).image.fill(member("weave - bg color", gCast).rect, gWvBgColor)
  97.     member("weave - bg shadow", gCast).image.fill(member("weave - bg shadow", gCast).rect, gWvBgShadow)
  98.     member("weave - V color", gCast).image.fill(member("weave - V color", gCast).rect, gWvVcolor)
  99.     member("weave - V shadow", gCast).image.fill(member("weave - V shadow", gCast).rect, gWvVShadow)
  100.     member("weave - H color", gCast).image.fill(member("weave - H color", gCast).rect, gWvHcolor)
  101.     member("weave - H shadow", gCast).image.fill(member("weave - H shadow", gCast).rect, gWvHShadow)
  102.   end if
  103. end
  104.